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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
RIGHTS RESERVED. 
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WITH TERMS OF SUCH LICENSE AND WITH THE 
0 ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF my NO PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eoePORAtitn. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


M 
A 
,! 
4 
Mi 
N 
Ni 
Pp 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
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SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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SYSSIMGACT has been redesigned. 
v03-002 wMc0002 Wayne Cardoza 30-Apr-1983 
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P 
3 4 
0 2 
0 P 
00 P 
00 p++ Ri 
+4 3; FACILITY: IMAGE DUMP . 
o6 ; ABSTRACT: Dump address space and other context of a process. : 
00 : Ri 
oo ; ENVIRONMENT: User mode Hy 
4 : AUTHOR: Wayne Cardoza : 
09 ; CREATION DATE: 14-Feb-1983 S 
09 : MODIFIED BY: $ 
00 ; V03-006 wMc0006 Wayne Cardoza 12-Jun-1984 $ 
be ; Fix incorrect register after MOVC S$ 
00 : Improve performance. 2 
00 ; v03-005 wMc0005 Wayne Cardoza 06-Sep-1983 S 
36 3 d .DMP to file name to keep logical name for image from s 
3 having an effect. u 
$0 : v03-004 wMC0004 Wayne Cardoza 29-Aug-1983 
20 : Properly save SP in EXEC mode. 
: : v03-003 wMc0003 Wayne Cardoza 01-Jul-1983 


"BrSEb=] Obs 1:38:89 YINGUME.SaesimeompcnaR:1 «= P29 (4, 
More GETJPI items. 


v03-001 wMC0001 Wayne Cardoza 20-Apr-1983 
Add SYSS$PROCDMP translation. 
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64 . 

65 -PSECT SAAIMGDMP,LONG 

66 -DEFAULT DISPLACEMENT, WORD 

rf: : Data Structure Definitions 

5 j SIMGDMPDEF 

71 SIHDDEF 

te SIHIDEF 

7 SIFDDEF 

74 SJPIDEF 

75 SPSLDEF 

0 $SFDEF 

28 ; This is the standard header for debuggers. 
6 ; It must be the first thing in the image. 
Hf BEGIN_DUMP: 

j «LONG 0,0 

é “LONG BEGIN_CODE-BEGIN_DUMP 
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Functional Description: 
This is the main routine for taking an image dump. It is JMPed to 
after being merged in by a condition handler. 


3; Save the correct SP if we aren't in user mode 


0 dC MOVPSL RO 
50 50 0 1 EF EXTZV #PSLSV_CURMOD ,4PSL$S_CURMOD,RO,RO r 
50 (01 CMPL RO, #PSCSC_USER 
14 13 BEQL 3$ ; ALL OK, this is user mode : 
D + L ; Tell service not to change anything 
0832'CF 4 MISC+IMGDMPSL_SP Tell i h h 


LRL 
ADJSTK_S ACMODE = #PSLS$C_USER,- 
NEWADR = MISC+IAGDMPSL_SP ; Get the old value here 


at 
( 3 : 
c 5 ; 
C : Calling Sequence: 
: 3 + 
C 94 : Input Parameters: 
0 $ 95 ; signal and mechanism arrays 
° C 38 : Implicit Inputs: 
: 38 ; a@ great many 
00C 100; Output Parameters: 
BOF 102 | a 
ooc 1 : : Implicit Outputs: 
EE PSone 
bE 106 : Routines Called: 
fe bo 
00Cc 109 : Routine Value: 
ie icon 
S008 118 : Signals: 
ea tna 
000C 115 : Side Effects: 
000C 118 : dump taken 
000C nur f 
Oo0e 119s 
900¢ p BEGIN_CODE: 
Goac : ¢ ; Save registers, clean up frame, save misc process context 
50 04 AC 00 09 3 124 ° MOVL 4(AP) ,RO ; Address of signal array 
08 AC ; 125 MOVL 8(AP),R1 : Address of mechanism arra 
836'CF 5¢ 0 4 1 § MOVL AP MISC+IMGDMPSL_AP 3; AP for the condition handler 
O802'CF OC Al D eS Aw mova 12¢R1) ,MISC+IMGDAPSL_RO : Get RO and R1 from mechanism array 
OB3A'CF OC AD 00 F : MOVL SFS SAvE FP(FP) ,MISC+IMGDMPSL_FP 
OB0A'CF 14 AD é 5 1 MOVs #10*%,SFSC_SAVE REGS (FP) MISC+IMGDMPSL_R2 
0832‘CF 50 C C1 , ! ? ADDL #SFSL_SAVE-REGS#<1 #4>,FP,MISC+IMGDMPSC_SP 
1 . 
133 
134 
me: 
mi 
139 
140 
141 
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; Make sure we can check the version number on analysis 


O846'CF 03 ts: MOVL #IMGDMPSC_VERSION,MISC+IMGDMPSL_VERSION 
| 


Ss 
oO 


Some misc data 


SGETJPI_S ITMLST = 
MOVL “@aCTLSAL_ STACKSIE, MISC+IMGDMPSL_USRSTK ; Top of user stack 


; Get the image header, create dump file of same name as image 


Pete te Lae ee 


0842°CF  O000000C'9F D0 


@4MMG$ IMGHDRBUF +4 ,R 


53 990000 4'9F p0 MOVL 
3FE'C MOVIWL 1FDSu W_CH ANCR2) « ), IMG Enanné! 


8 A2 


OOOO OCOCGOCOOCOCCOGOOOCOCOO 


DD S } d Sosodo dae ws td I 


BE MO OPMPIPIPINIE VWI) SPO 


SQ10W_S CHAN = IM ; Read first block of image header 
FUNC = #10$_R READ DebiK 7 
P1 = IMGHBRBUF,- 
= #512,- 
P = #1 
03 20 8 BLBS RO,4$ 
01¢ 1 BRW EXIT 
52 0402'CF E 4$: MOVAB IMGHD 
50 06 3 C MOVZWL 1HOSY. ROUGIDOFF (R2). RO ; Get image name 
36 5 0 ADDL RO,R2- 
50 62 9A 00 MOVZBL Inist_ IMGNAM(R2) » RO ; Length of image nane 
0B74'CF 2 81 08 ADDB RO, DMP_FAB+ FAB Low for the .DMP 
0702 CF 01 FY 28 MOVC Ii st *THoNAne! (R2) “abs 256 Move the image name 
6 eee 3%. 8F D0 MOVL a 7,(R3) d det ault extension to end of MOVC3 
OB6C ' CF CF 9E MOVAB MAPS3S6, DMP_ FAB+F ABSL_ en ¢ y Pte of file name 
3 If the logical name SYSSPROCDMP exists it will be used to place the dump 
STRNLOG_S LOGNAM = SYSSPROCDMP,- 
RSLBUF = PROCDMPNAM,=- 
RSLLEN = PROCDMPNAM 
29 50 €9 BLBC RO,5 3; Assume no translation 
00000000'8F 50 01 CMPL RO, #SS$_NOTRAN 
.. oe! BEQL 5$ 
51 608 CF 4 3 MOVAB MAP,R1 
51 A15'CF C ADDL PROCDMPNAM,R1 ; Get to end of translation 
61 eat 3133 8F b0 MOVL #*A/.DMP/,(R1) 5 : Add default extension 
0870" 0602°CF 9E ROVA NAP DMP_FAB+FABSL Put default in FAB 
OB75'CF OAIS'CR 04 81 4,PR OCOMPNAM, DMP -PAB+FARSB 


DDB 
SCREATE fab 


| 
: 
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i a a ee ek a 
WOOO OO WO 00.09.09. 09.00 09 69 09 09 09 SI SI NNN SN SSNS DOD DAA AA AD UIT BP 


DNA ALS OS OD NAUNE WN © OOO NAMES WIN $9 OD NAME WN 0 OONA UE WO OONOAUE UTP 
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AOUMIMIVIM SE SWI SOOO MHA MNOOVVTVTVTIAO 4 
SII C8009 O9S OFS NL OMS MOWMOUIVOOOOOONVD £m 


5$: 3 Poeeie dump file 
SCONNECT at tos z OORP RAB 
03 30 8 LBS 
013€ 1 10$: BRW EXIT 
OBC8'CF 01 DO 20$: MOVL #1,DMP_RAB+RABSL_BKT 3 First block 
OBB2°CF 0200 BF 80 MOVW  #512,DMP_RAB+RABSW_RSZ : One page 
OBBB'CF  0402'CF 3 MOVAB TRcHORBUE, DMP_RAB+ SaRBSL _RBF 
SWRITE RAB = DMP_RAB™ 3 Urite image header to dump file 
3 Initialize to write PO cl user stack to dump file 
gic 4 OD MOVL a, DMP _RAB+RABSL_BKT 3 First data block 
"CF ; D MOVL #3.MA BLOCK rst map block 
E'CF D MOVL ALSCe IRcbMs, FIRST + ale 
52. OB4A'CF FT BF ASHL #5 MISC+IMGDMP$C_FREE-PO,R2 ; Page count 


at 
| 


"or Seen13be 81:38:89 ETMGUME SRE TomeonPcmar:1 | 28" 8, 


52. 06 $f }) INCL R2 
beng: CF p4 1 0 CLRL_ DMP_RAB+RABSL_RBF ; VA 
55 602° CF £ 174 MOVAB MAP RS : Position in map block 
65 1 § CLRL (R ; Initialize the map 
OO0FB 0 178 ? BSBW WRITE_IT ; Process PO space 
53 E‘CF 00000200 8F C 17 5° SUBL #*X200 ,MISC+IMGDMPSL_FREE_P1,R3 ; Starting address of used stack 
95 °F 3 : 18 : SUBL3 R3,@#CTLSAL_STACK+12-R2 ~ . 
F7 8F 1 ASHL - P ; Page count 
OBBS'CF 53 p 19 : MOVL R3,0MP_RAB+RABSL_RBF =: VA 
00D¢ 130 09 BSBW 30s WRITE_TT ; Process P1 space 
OBC8'CF 35'CF DO 0190 211° MOVL § MAP_BLOCK,DMP_RAB+RABSL_BKT 
pees ct 8 00 8F B80 O1A4 \¢ MOVW #512,DMP Rae RABSY RSZ ~; One page 
0888" CF 602°CF YE 148 1 MOVAB. MAP, OMP RAB+RABSL_RBF =; Write the Last map block 
1B 14 SWRITE RAB = DMP_RAB 
01 50 3 O10 1g BLBS RO,30$ 
1C1 8 
91C1 18 ; Save misc pieces of P1 
bie) 1? ; Errors on change mode calls are ignored - no priv 
1C1 1 30$: § SCMEXEC_S ROUTIN = PRIV_STKS ; Save EXEC and kernel stacks 
52 00000000'8F 00 Ole ; MOVL “#CTLSGL_VECTORS,R2 ; Base of vector page 
5 2§ DO 01D MOVL ° ; Top (one page) 
cE'CF 5 dO aes 4 MOVL R2,MISC+IMGDMPS$L_VECPAG_VA 
OBCA'CF 0B39'CF 0 0O1DD 5 MOVL NEXT FILE ,MISC+IMGDMPSL_VECPAG_BLK ; The file block to be used 
0185 30 O164 6 BSBW = WRITE MISC 
08D2"CF 54 dO ater 7 MOVL R4 iySC* INEDMPSL VECPAG_SIZ ; Actual page count 
52 FFFFFEOO'BF DO OTE 3 MOVL #PLOosA TRACE=512,R ; Base of PIO (RMS) area 
53 OSFF ce 9E O1F MOVAB <<5#512>=1(R2) ,R3 : T 
"CF D0 OF 0 MOVL R2,MISC+IMGDMPSL_PIO_V 
08D6' CF 0B839'CF 0° 1FD 31 MOVL NEXT FILE MISC+IAGDMPS$L_P10_BLK 3; The file block to be used 
0195 0 04 Q BSBW WRITE MISC 
O8DE'CF 54 OD 07 MOVL R4,MISC+IMGDMPSL_PIO_SIZ ; Actual page count 
52 00000000°8F 00 of 4 MOVL act GL_IAFLINK,R2 ; Base of image activator context page 
53 28 dO 1 5 MOVL R2,R 3; Top (one page) 
O8E6' CF 00 16 § MOVL R2,MISC+IMGDMPSL_IMGCTX_V 
O8E2'CF aad 4 1 MOVL NEXT FILE ,MISC+IMGDMPSL_IMGCTX_BLK ; The file block to be used 
0177 8 BSBW «=: WRITE_MISC 
OBEA'CF 4 OD 9 MOVL RG MISC * INGDMPS|, yngcrn $1Z ; Actual page count 
6 FFFFF800'8F D0 A 40 MOVL #CTLSA_COMMON-<47512>,R2 ; Base user writeable context pages 
5 00000200'8F oD 1 41 MOVL ecTL sas CMEDATA*512,R5 ; Top (one page after AME context 
ore Ee 2 D 8 45 MOVL R2,MISCFIMGDMPSL_US Vv 
OBEE'CF 39°CF D 4 MOVL NEXT FILE MISC+IMGDMPSL_USRCTX_BLK ; The file block to be used 
0155 44 244 BSBY ss: WRITE_MISC 
O8F6'CF 54 rts $3 MOVL R4 ,MISC+IMGDMPSL_USRCTX_SIZ ; Actual page count 
rt: ‘? 3; Write out the misc data block 
4C ‘3 MOVL a 4 RAB+RABSL_BKT 3; Misc data block 
51 250 mMOVe #512, 
28 1 MOVAB MISC,DMP_RAB+RABSL_RBF 
F § SWRITE RAB = DMP_RAB ; Write misc data block 
ea Z BLBC RO,EXIT 
6D 33 SCLOSE FAB = DMP_FAB ; Close the dump file 


DAP_RAB+RABSW_RSZ ; One page 
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: This routine processes a range of address space, filling in the map, 
: writing the dump, and skipping unaccessable pages. 


3 Inputs 

R2 => page count 

R5 => current address map qnery. 
DMP “RAB sRABEL “rt => starting 


wowowoowowoowvovono 
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ow 


$0000 009090909 09 09.09 09 69. 69 SI INI ISIN NIN NIAAA AA OOOO 
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=z 
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rc 


; Set up the next map segmen 
; A map block is written if ceceonens 


RS -> current map en ry 
MAP_BLOCK => file Hone of current bap blcok 


RS => updated 
MAP_BLOCK => updated if map was written 


; Outputs 


I IDQOODODOOOO0000 
NO 
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SOOCCOCOOGOOOOOSOSOGOOOGOCOCOCOOOOOOSOSOOCOCCSCOOCOC COSCO OOCOOOOOCOOOOOOOOOOoOO 
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: Inputs 


OBB2"CF 0200 8F B80 MOV orle. DMP_RAB+RABSW_RSZ ; One page 
0 SWRITE = DMP_RAB : Try to write the page 
of 50 =6€9 BLBC 0$ ; Error - 1’ next page 
04 AS 0BB “CF o9 E nO, “RAB+RABSL_RBF,4(R5) * Starting V 
D 94 DECL R : ene less page 
OBB8'CF 00000200 8F C0 96 ADDL 2 12 DMP aaot octe _RBF =; Next 
OBCB'CF 06 O29F INCL P_RAB BkT ~ : Ment file block 
65 06 A3 INCL mR RS : Another block 
56 sees. Yel F pO AS MOVL #127 ,R6 3; Start with 127 page write 
: DO AC 208: MOVL Re RS ; Remaining pages 
6 D1 AF CMPL R5,R6 ; Check ageins maximum 
Q 1 B2 BLEGU 308 
23 6 p B4 MOVL Hy oT as 3; Write the maximum 
54 09 87 30$: ASHL 3; Get byte count 
Opp2"cF 54 BO 8B MOVW = RG Dab. HABORABSU_ RSZ 
C SWRITE RAB = BMP_RAB ; Write next page in run 
08 50 =«C«EB cB BLBS ae os” ; Success = continue the run of pages 
56 07 C DECL 3; Try one page less 
DA 14 D BGTR 20$ : ge try again 
e¢ \9 $ gee ot8 _MAP_SEGMENT ; Failure = next segment 
OBC8*CF sg co D6 95 40S: ADDL DMP_RAB+RABSL_BKT 3; Next file block 
0BB8 ' CF 23 C D ADDL R4, DMP" RAB+RABSL _RBF 3 Next VA 
65 ; Cc & ADOL R3,(R5) 3 Keep count 
he C E SUBL R3,R2 3 Remaining pages 
C4 14 E6 BGTR 2 3; Continue 
ie 19 ce Soy ya a : Done with the range - next segment 
0BB8' CF 00000200 ef co E 50$: ADDL 12, DMP_RAB+RABSL_RBF 
81 52. SOF F SOBGTR R 
0B39'CF OBC8*CF 00 F 60$: MOVL DMP _RAB+RABSL_BKT ,NEXT FILE ; Next available file block 
05 09 RSB ; Done with the range 
| 
| 
| 
} 
} 
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04-000 eT Pan! Ta TOR ve 
17; 
18 NEXT_MAP_SEGMENT: 
$ 08 £0 KOOL RS : Get to available space 
FACE F 0 PUSHAB MAP _END 
—e 55 01 1 CMPL R3 TSP)+ : Is this the end 
i A ; NEQ § : No = use 
2m vi CE C MNEGL #1, (R5) ; Mark map tilled 
0B ae Dd O30F $k PUSHL © DMP_RAB+RABSL_ RB ; Save V 
OBCB'CF 083 ‘CF 00 ? 6 MOVL MAP™BLOCK 
ey pene 7 8 I VW #512,0MP RABSW_RSZ 4* page 
OBBS' CF O2'CR 9E 8 MOVAB. MAP, OMP RABSRABSL. RGF 
3 SWRITE RAB = wes ; Write out this map block 
1A 30 £9 0 BLBC $ 
0835 CE —E 00 A 1 MOVL (SP) +4 ext block is for ma 
OBC8'CF O0B35'CF 01 C1 F : ADDL3 mabe BL Ore Orne RAB+RABEL BKT S Mext avetienie block 
Opes" Cr E b0 47 MOVL tsb BMP YRAS*RABSL _RBF ; Restore VA 
55 O602'°CF 9E 034¢ 4 MOVAB map Mi 
65 04 21 5 10$ CLRL (R55 ; No pages yet in map segment 
05 23 : RSB 
FF21 31 8 54 8 208 BRW EXIT 


ry A 
PUSHL DMP" RABSRABSL BKT Save next avaiiable block 
mo Dae SRAB+RABSL_BKT 


SEE SS = 
—— 86 
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7 40 ; 
4 i ; Routines to save misc portions of P1 address space 
7 343; 
7 rf: 3; Save the EXEC and kernel stacks 
; 46 PRIV_STKS: 
000 7 4 .WORD 
26 444 oF D 9 ‘3 MOVL @4CTLSAL_STACKLIM,R2 3; Kernel stack low Limit 
0 "OF 9) $9 4 MOVL @#CTLSAL-STACK,R3 3; High Limit 
0. orc 52D 0 MOVL  R2,MISC+ITMGDMPS$L_KSTK_VA 
08B2'CF 39°CF D MOVL EXT FILE Sr ec TRCOMPSL KSTK_BLK ; Next file block 
eh 8SBB WRITE_MIS ; Write out misc address space 
osBA'cE 854° «OD 7 MOVL R4 nISC+INGDMPSL KS KSTK $12 
53 ‘OF OD 7A 4 MOVL a#CTLSAL_STAC Th? 3 Exec stack low Limit 
5 ‘OF D 1 5 MOVL @*CTLS$AL_STACK ae Ra § $ High Limit 
08c ‘Se 52 1) 8 2$ MOVL R2-RISCtIRGDMPSL ESTK_VA 
O8BE "CF 39°CF OD D 5 MOVL NEXT FILE E RISC TMEDMPSL aESTK BLK ; Next file block 
a*3.4 4 28 BSB8B WRITE MISC Write out misc address space 
MOVL R4 ,MISC#I L K 
osce'cr 54 DO 0396 35 4,MISC+IMGDMPSL_EST sid 
04 98 60 RET 
3 8e2 : 
9C 8g ; Write out misc address space 
9C 64 ; input 
9C 65 ; = low eserees 
9C 66 ; 4 = high addre 
039C¢ 67 ; NEXT_FILE = oant  euatlabie file block 
8 9C 68 ; Output 
9C : 3 Pi pe count 
5 = update 
0 4 ay 3 NEXT ILE dated 
9C 72 WRITE oN 
OBC8'CF 0B39'CF 00 9 7 NEXT_FILE,DMP —— -BKT First block 
0BB8' CF 3 D A 7% ROVE R2,DAP_RAB+RABSL_R Start ting VA 
53 c A 75 SUBL R2,R : Byte count 
53 53 F7 BF 7 ASHL =—_- #9, R83, RB ; Pages - 1 
3 «06 7 INCL R3 3; Pages 
4 04 7 CLRL RS ; No pages 
55 $53 00000200 8F C5 4 79 108: MULL3 e212 83 RS 3; Byte count 
OO000FE0O BF 5 D1 0 CPL R5,8<1278512> ; Is it greater than maximum 
55 QOOOFEOO 8F 00 C ¢ MOVL #<127#512>,R5 
OBB2 * CF 5 8 ce 20$: MOV R5 re RABSRABSN_ RSZ 
D 4 SURITE RAB = 
17 9 E9 oc 5 BLBC : Done 
cage" cr f DOF § ADDL zDMP “RABY RABSL _RBF 3 New address 
58 aT Bae Be Eh hx 
Coun 
OBC8' CF 5 C EC g ADDL R ;DMP_ RAB+RABSL_BKT : New fi > block number 
53 5 ‘ Fi 0 SUBL R5,R3 ~ ; Pages left 
BE A F4 91 BGTRU 1 More to do 
0B39'CF OBC8'CF 0 4 8 30$: near DMP_RAB+RABSL_BKT NEXT x 4: 3 Scan available file block 


Page 


(3) 


D 
DE 
ER 
Ex 
EX 
Fl 
FC 
GE 
GE 
GE 
HE 
HC 
HC 
HC 
HC 
HC 
HC 
HC 
HC 
Ic 
IC 
IC 
If 
It 
Ic 
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IMGDMP 16=SEP=1984 
v04-000 Ses 7 
FE 95 ; Data 
FE 499 
FE 398 [MG_CHANNEL: 
00000000 +f 335 = N TONG 
4 401 IMGHDRBUF : 
00000602 4 4 : -BLKB 512 
0000802 404 MAP: -BLKB 512 
itdiag 0 4 5 MAP_END = .- 
00000A02 8 4 ? MISC: .BLKB 512 
A 409 SYSSPROCOMP: 
52 50 24 53 59 53 00090A0A"010E9000" A 410 .ASCID /SYSSPROCDMP/ 
50 4D 44 43 4F al se 
OAs aig PROCDMPNAM: 
QO0000FF OA15 41 .LONG 255 
00000602' alg aig ; ;ADDRESS MAP 
AID 416 JPILST: .WORD 4,JPI$_FREPOVA 
A l a1? : DRESS AISC+INGDMPSL_FREE_PO 
A290 419 RD 4,JPI$_FREPIVA 
A p 4 0 -ADDRESS HISC+IMGDMPSL_FREE_P1 
ASG é -WORD 4,JPI$_ASTEN 
A i 4 ; “ADDRESS HISC+TMGDAPSL ASTEN 
1 425 [WORD 4,JPI$_ASTACT 
3 4 é - ADDRESS 1SC+IMGDMPSL_ASTACT 
Te 3 [WORD g pis CURPRIV 
l 4 3 -ADDRESS 1SC+IMGDMP$Q_CURPRIV 
9 431 “WORD 4, JPIS_EFCS 
2 4 é - ADDRESS ISC+IMGDMPSL_EFCS 
65 434 ORD g iis EFCU 
9 4 5 “ADDRESS AISC*IMGDMPSL _EF CU 
4 $ [WORD 4, JPI$_BIOCNT 
4 5 “ADDRESS AISC*TMGDAPSL_BIOCNT 
440 “WORD 4, JPI$_BIOLM 
44] - ADDRESS MISC+IMGDMPSL_BIOLM 
10 *WORD 2 PIs BUF IO 
444 - ADDRESS MISC+IMGDMPSL_BUF 10 
446 “WORD 2 pis BYTCNT 
44 - ADDRESS MISC+IMGDMPSL_BYTCNT 
ret: WORD 2 pis BYTLM 
450 “ADDRESS MISC+IMGDMPSL_BYTLM 


1:60:38 AX/VMS Mac 


r 
IMGDMP.SRCJIMGDMP.MAR; 1 


Channel for the image header 
Buffer for image header (first block) 
Address m 


a 
Last ovet lable map slot 
Misc data block 


Translation of SYSSPROCDMP 
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16-SEP-1984 01:40: AX/VMS Macro V04-00 P 12 
Breer e8s Bi :SRi es PIKCHMS Bacto Yoel ke | Page 12, 


AAD LONG 3 

AAD WORD $_DIOCNT 

DAB -ADDRESS MISC+IMGDMPSL_DIOCNT 
DAB “LONG : 

DAB WORD $_DIOLM 

ABD SADDRESS Mf SIRGDA MPSL_DIOLM 
AC} :LONG 0 

aCe -WORD 4,JPI$_DIRIO 

AC -ADDRESS MISC+IMGDMPSL_DIRIO 
ACD ;LONG 0 

DAD 1 .WORD 4,JPIS_FILCN 

DAD SADDRESS Mf STHODMPSL _FILCNT 
DAD “LONG 0 

DADD “WORD 4, JPI$S_FILL 

DAE 1 -ADDRESS & SIMGDMPSL. FILLM 
DAES “LONG 0 

AED “WORD 4, $_T 

DAED “ADDRESS # jerreer TQCNT 
DAF 1 ONG 


> 
~ 
o 
5 lai ie i-Bily-Ii-l-h> > D-DD dh eke ele de delle dele ele ieee ahaha ad lal lata tak Dak ak Dak ek ek ek ek ek a 
© O.0909 09 09 69 09.09 09 09 09 SI NIN NINN NINA A OPAPP AAAOMUIMUIMNUIUIUIVT 
MOOD NAME WIN 9 OD NAUE WIN O ODNA UNE WH OOONOUS UT 
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B0 

B0 

3 1 

B1 

B1 

B1 
00000 : ‘ 
0000000 : LONG 

: ap BLOCK: ; File block for current address map 
00900000 06 -LONG 0 

; NEXT_ FILE: 3; Next available file block 
00000000 0&6 rh -LONG 0 

. 498 | eALIGN LONG 

B4 494 DMP_FAB: SFAB FAC = <810 PUT>,=- 

B40 495 DNM = <.DMP> 

B9 496 DMP_RAB: $RAB- FAB = bap _FAB,~ 

B9 49 RSZ = 5127- 

B9 498 ROP = BIO 

BD 499 ;: 

BD 500 END 


IMGDMP 16-SEP-1984 01:40: AX/VMS Macro V04-00 Page 13 
Symbol table et 8:38:89 LIMGDMP. SRCIIMGDMPMAR; 1 . (6) 
$$.TAB = 90 R 1 IMGDMPS$L_ESTK_SIZ = C4 
$$. TABEND = 4 R $i IMGOMP “BS TK AVA = g 
$$. TMP = ° IMGOMPSL~FILCAT = 
$$. TMP1 s IMGDMPSL_FILLM 2 C 
$$. 1TMP2 = F IMGDMPSL_FIRST_MAP s 
$$. TMPX = OR 03 IMGDMPSL_FP = 
$$. TMPX1 = % atte edt | Bi = & 
$$T1 = 1 IMGDMPSL_FREE_P1 = 4 
BEGIN_CODE $ 4 R 1 IMGDMPSL~_IMGCTX_BLK = E 
BEGIN DUMP R 1 IMGDMPSL_IMGCTX~SIZ 5 E 
CTLSAG_CMEDATA teeeeeee =X 1 IMGDMPSL_IMGCTX"VA = E4 
CTLSAL_STACK eeeereen =X 1 IMGDMPSL_KSTK_BCK = 4 
CTLSAL"STACKLIM teeeeeee =X 1 IMGDMPSL-KSTK-S1Z = 8 
CTLSA_COMMON eenenene =X 1 IMGDMPSL_KSTK-VA = $ 00B4 
CTLSGC_IAFLINK eeeeeeee =X 4 IMGDMPSL_PIO_BLK = 00 D4 
CTLSGL_ VECTORS eeeeeeee =X 1 IMGDMPSL_PIO_SIZ = 43 45 
DMP_FAB 00000840 R 4 IMGDMPS$L_PIO-VA = 0000000 
DMP" RAB 00000890 R 1 IMGDMPSL_PRCCNT = 00000090 
1T 00000278 R 01 IMGDMPSL_PRCLM = 000 BOR 
F ABSB_ONS = 3 IMGDMPS$L_RO = 00000000 
FABSC_BID = 3 IMGDMPS$L_R1 = 00000004 
FABSC_BLN = 0 IMGDMPS$L_R10 = 444 8 
FABSC_SEQ = IMGDMPS$L_R11 = 0000002C 
FABSC_VAR = IRGDAPSL_R¢ = a4 8 
FABSL_ALQ = IMGDMP$L_R = 0000 sh 
FABSL_DNA = 0 IMGDMPSL_R4 = 0000001 
FABSL_FOP = 4 IMGDMPSL_RS = 00000014 
FABSV_B1O = 5 IMGDMPSL_R6 = 00000018 
F ABSV_CHAN_MODE = 2 IMGDMPSL_R7 = 0000001C 
FABSV_F ILE MODE 2 4 IMGDMPSL_R8 = 98008 0 
F ABSV_LNM_AODE = 0 IMGDMPS$L_RO = 00000024 
FABSV_PUT = 4 IMGDMPS$L_SP = 00000030 
F ABSW_GBC = IMGDMP$L_TQCNT = Hoa e aoe e 
IF DSW_CHAN = 8 IMGDMP$L_TOLM = 44943 
IHD$W_ IMGIDOFF = 6 IMGDMPS$L_USRCTX_BLK = 444 OEC 
IH1$ST~ IMGNAM = 0 IMGDMPSL_USRCTX_S1Z = 000000F 4 
1MGDMP = IMGDMPSL_USRCTX_VA = 448 
IMGDMPSC_LENGTH = IMGDMPSL_USRSTK = 0000 ed 
IMGDMPSC_VERSION = IMGDMPS$L_VECPAG_BLK = 000000C 
IMGDMP$L_AP 2 4 IMGDMPSL_VECPAG_SIZ = 00000000 
IMGDMPSL_ASTACT = IMGDMPSL_VECPAG VA = HON OO EE 
IMGDMPSL_ASTCNT = IMGOMPSL_ VERSION = 00000044 
IMGDMPSL_ASTEN = IMGDMP$Q_CURPRIV 2 38 0058 
IMGDMPSL_ASTLM = IMGDMP$S_CURPRIV = 3808 
IMGDMPS$L_BIOCNT = IMGDMP$S~ IMGDMP = 000000F 
IMGDMPSL_BIOLM = IMGHDRBUF 000402 R 01 
IMGDMP$L_BuF 10 = IMG_CHANNEL QOOOSFE R 01 
IMGDMPSL_BYTCNT s 10$-READVBLK eeeeeeee =X 01 
IMGDMPSL_BYTLM = JPIS_ASTACT = 90 0 
IMGDMPS$L_DIOCNT = JPIS-ASTCNT = E 
IMGDMP$L_DIOLM = JPIS"ASTEN = 1 
IMGDMP$L_DIRIO s JPIS—ASTLM = 409 
IMGDMPS$L_EFCS = JPIS$-BIOCNT = 3 
IMGDMPS$L_EF CU = JPIS_BIOLM = 10 
IMGDMP$L_ENOQCNT = JPI$—BUF IO = 206 
IMGDMP$L_ENOLM = JPIS_BYTCNT = ; 1 
IMGDMPS$L—ESTK_BLK s JPIS"BYTLM = OSA 


M12 


IMGOMP 16-SEP-1984 01:40: AX/VMS Macro V04-00 Page 14 
Symbol table Sty 7 8:59:88 IMGDMP.SRCJIMGDMP.MAR; 1 ° (6) 
JPIS_CURPRIV : 
JPIS_DIOCNT = aN 
JPIS_DIOLM = 1 
JPIS_DIRIO 2 08 Va 
JPIS_EFCS = being 
Jere Et cy z 18 oc 
JPIS_ENQCNT - 1F 
JPIS_ENOQLM = ¢0 0C 
JPIS_FILCNT s 4 OC 
JPIS_FILLA 2 4 OF oC 
JPIS_FREPOVA : 404 OC 
JPIS_FREPIVA = ; 2 o¢ 
JPIS_TQCNT = 
JPI$_TQLM = 410 00 
JPILST AID R 1 00 
MAP of R 1 00 
MAP_BLOCK R 1 00 
MAP~END 90007FA ROI oe 
C 0000802 R 1 00 
MGS I MGHORBUF eeeekere xX 1 its 
NEXT_FILE 8 003 R 01 00 
NEXT _MAP_SEGMENT 0000300 R 1 00 
PIOSA_TRACE eeeereee xX 1 00 
PRIV_STKS 00000357 R gi 00 
OOOOA1S R 1 00 
PSLSC_USER si 444 00 
PSL$S_CURMOD Boe $9 00 
PSL$V~CURMOD 000001 00 
$B _RAC QOOOOOTE 00 
RABSC_BID = 00000001 00 
RABSC_BLN = 00044 00 
RABSC_SEQ = 0000 00 
RABSL_CTX = 01 00 
RABSL_ROP = 008 00 
RABSV_BIO = 00000008 0g 
SFSL_SAVE_ = 0000000C 
SFS$L_SAVE_REGS = 00000014 9g 
SS$_ROTRAN terereee xX 01 
SYSSADJSTK eeeeeere GX 01 0¢ 
SYSSCLOSE aeeeeeer 6X 1 00 
SYSSCMEXEC aereeeer GX 1 06 
SYSSCONNECT eeereeeer GX 01 o¢ 
SYSSCREATE etereeee GX 1 
SYSSGETJPI erereree GX 1 o¢ 
SYSSPROCDMP 00000A02 R 1 
SYS$Q10W feeeneer GX 1 0c 
SYSSTRNLOG eereeeee GX 01 o¢ 
SYSSWRITE eereeere GX 01 
WRITE_IT 90000279 ® 1 
WRITE_MISC 000039C R 01 
OC 
0¢ 


IMGOMP 16-SEP-19 74 AX/VMS Macro v04-00 Page 15 
Psect synopsis et 7 ti 38; a IMGDMP.S TIMGDMP. MAR; 1 . (6) 
¢eoccccccscesoocea 
! ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- «ABS. 00000000 ( -} 00 ¢ 0.) NOPIC USR CON ABS LCL oo rt NOEXE NORD NOWRT NOVEC BYTE 
SAALMGDMP 84444 ( 3028.) 83 ( 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
SABSS 00000000 <( 0.) § ( §°} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SRMSNAM 00000004 (¢ 4.) 05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 


were rr eee seem eee ems ee eee $+ 


Initialization 3? 09 :00:00.10 60:00:00 .73 
pomnens processing 155 00:00:00.7 00:00:03.10 

00:00:09.19 00:00:17.54 
Synbol table sort 0 00:00:00.87 8 +80 2 00-78 

s 2 102 00:00:01.98 00:00:04.1 

Suabot table output 20 00:00:00.16 B9 +20 :80 56 
Psect synopsis output 2 es Bo 00:00:00.0 
Cross-reference output 3 SE et 00:00:00.00 
Assembler run totals 61 00:00:13.10 00:00:27.38 


The working set Limit was 1500 pages 

46825 bytes (92 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 676 non-local and 17 local symbols. 
500 source Lines were read in Pass 1, producing 20 object records in Pass 2. 

40 pages of virtual memory were used to define 32 macros. 


et 


Macro Library name Macros defined 


-$255$DUA28: CIMGDMP. 08) IMGDMPL IB. MLB;1 
$255$DUA28: (SYS .OBJJL 
$583$DUA 8:CSYSLIBJSTARLET. ALS; 2 $ 
TerAre (all Libraries) 
997 GETS were required to define 29 macros. 
There were no errors, warnings or information messages. 
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